home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g37.bas < prev    next >
BASIC Source File  |  1991-10-18  |  965b  |  42 lines
  1. 100 ' G37 T.WAKAMATSU
  2. 110 DIM H(20),X(20),Y(20)
  3. 120 FOR I=1 TO 8:READ H(I):NEXT I
  4. 130 DATA 2,3,4,5,6,7,8,1
  5. 140 PI=3.14159!:CLS
  6. 150 K=45:F=0
  7. 160 FOR L=0 TO 270 STEP 4
  8. 170   N=0:J=F:F=F+2
  9. 180   FOR I=L TO 360+L STEP K
  10. 190     J=100-J:M=I+J
  11. 200     T=M/180*PI
  12. 210     N=N+1
  13. 220     X(N)=239*COS(T)+320
  14. 230     Y(N)=239*SIN(T)+240
  15. 240   NEXT I
  16. 250   PSET(X(1),Y(1))
  17. 260   FOR I=1 TO 8
  18. 270     LINE-(X(H(I)),Y(H(I))),PSET,%5
  19. 280   NEXT I
  20. 290   FOR D=1 TO 10:NEXT D
  21. 300 NEXT L
  22. 310 FOR P=1 TO 3
  23. 320   READ A,B:DATA 5,3,10,4,0,0
  24. 330   K=45:F=0
  25. 340   FOR L=0 TO 270 STEP 4
  26. 350     N=0:J=F:F=F+2
  27. 360     FOR I=L TO 360+L STEP K
  28. 370       J=100-J:M=I+J
  29. 380       T=M/180*PI
  30. 390       N=N+1
  31. 400       X(N)=239*COS(T)+320
  32. 410       Y(N)=239*SIN(T)+240
  33. 420     NEXT I
  34. 430     PSET(X(1),Y(1))
  35. 440     FOR I=1 TO 8
  36. 450       B=A-B
  37. 460       LINE-(X(H(I)),Y(H(I))),PSET,%B
  38. 470     NEXT I
  39. 480     FOR D=1 TO 12:NEXT D
  40. 490   NEXT L
  41. 500 NEXT P
  42.